* lisp/emacs-lisp/cl-preloaded.el (cl--typeof-types): Define as var.

diff --git a/lisp/emacs-lisp/cl-preloaded.el b/lisp/emacs-lisp/cl-preloaded.el
index 30753bcd5c5c00047dfe6fb31ee73fd03f593a1e..b2b921192ffdfef64ff18705d96405aa7d2adcb9 100644 (file)
--- a/lisp/emacs-lisp/cl-preloaded.el
+++ b/lisp/emacs-lisp/cl-preloaded.el
@@ -92,7 +92,7 @@ Each sublist is in the form (TYPE . DIRECT_SUBTYPES)"
      for child in children
      do (cl-pushnew parent (gethash child cl--direct-supertypes-of-type))))
 
-(defconst cl--typeof-types nil
+(defvar cl--typeof-types nil
   "Alist of supertypes.
 Each element has the form (TYPE . SUPERTYPES) where TYPE is one of
 the symbols returned by `type-of', and SUPERTYPES is the list of its